www.gusucode.com > 6KBBS ASP版 V7.1 > 6KBBS ASP版 V7.1\code\bbs\inc\grade.asp

    <%
function gradename(grade)
	dim tempgrade
	select case grade
		case 0 tempgrade="论坛虾米"
		case 1 tempgrade="小虾上路"
		case 2 tempgrade="论坛小虾"
		case 3 tempgrade="虾之大者"
		case 4 tempgrade="坛之龙虾"
		case 5 tempgrade="虾之尊贵"
		case 6 tempgrade="论坛小侠"
		case 7 tempgrade="坛内侠客"
		case 8 tempgrade="蝙蝠侠"
		case 9 tempgrade="蜘蛛侠"
		case 10 tempgrade="青蜂侠"
		case 11 tempgrade="侠之大者"
		case 12 tempgrade="侠中尊贵"
		case 13 tempgrade="飞侠 VIP"
		case 14 tempgrade="坛中版主"
		case 15 tempgrade="超级版主"
		case 16 tempgrade="论坛管理员"
		case else tempgrade="未知等级"
	end select
	gradename=tempgrade
end function
%>